home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / varfrm.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  78 lines
  1. VERSION 2.00
  2. Begin Form VarFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "VARSEG/VARPTR"
  5.    ClientHeight    =   1605
  6.    ClientLeft      =   1260
  7.    ClientTop       =   2265
  8.    ClientWidth     =   3390
  9.    Height          =   2010
  10.    Left            =   1200
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   1605
  14.    ScaleWidth      =   3390
  15.    Top             =   1920
  16.    Width           =   3510
  17.    Begin Label VP 
  18.       FontBold        =   -1  'True
  19.       FontItalic      =   0   'False
  20.       FontName        =   "MS Sans Serif"
  21.       FontSize        =   9.75
  22.       FontStrikethru  =   0   'False
  23.       FontUnderline   =   0   'False
  24.       Height          =   300
  25.       Left            =   1200
  26.       TabIndex        =   1
  27.       Top             =   870
  28.       Width           =   1785
  29.    End
  30.    Begin Label Label4 
  31.       BackColor       =   &H00C0C0C0&
  32.       Caption         =   "Offset:"
  33.       Height          =   195
  34.       Left            =   450
  35.       TabIndex        =   3
  36.       Top             =   900
  37.       Width           =   645
  38.    End
  39.    Begin Label Label3 
  40.       BackColor       =   &H00C0C0C0&
  41.       Caption         =   "Segment:"
  42.       Height          =   240
  43.       Left            =   225
  44.       TabIndex        =   2
  45.       Top             =   390
  46.       Width           =   855
  47.    End
  48.    Begin Label VS 
  49.       FontBold        =   -1  'True
  50.       FontItalic      =   0   'False
  51.       FontName        =   "MS Sans Serif"
  52.       FontSize        =   9.75
  53.       FontStrikethru  =   0   'False
  54.       FontUnderline   =   0   'False
  55.       Height          =   300
  56.       Left            =   1200
  57.       TabIndex        =   0
  58.       Top             =   300
  59.       Width           =   1785
  60.    End
  61. End
  62. defint a-z
  63.  
  64. Sub Form_Load ()
  65.     
  66.     VS.caption = " Hex: " + Right$("0000" + Hex$(VarSeg(VarFrm)), 4)
  67.     VP.caption = " Hex: " + Right$("0000" + Hex$(VarPtr(VarFrm)), 4)
  68.  
  69. End Sub
  70.  
  71. Sub Form_Paint ()
  72.       ConvexFrm VarFrm, 4
  73.       ConcaveCtl VS, 3
  74.       ConcaveCtl VP, 3
  75.  
  76. End Sub
  77.  
  78.